PL/M=35 COMPILER MM XONOF = 


SERTES-III PL/M-86 X198 COMPILATION OF MODULE MMXONOFF 
O&JEeCT MODULE PLACED IN sF1:MMXTST.OBJ 
COMPILER INVOKED BY: PLM86.86 sFITIMMXTST.°86 XREF 


1 - MMXONSOFF: 
DO; : 
Sinclude(:ft:mmxp88.lit) 


= * 
= * INCLUDE FILE MMXPRT.LIT 
= x >. ane Cow San Saw! Gab GD (Ue Gon, SD Ga SD eae, OU Ge ome aus, Cow! ae SOw Lees cau joe 
= * 
= * THIS INCLUDE FILE DEFINES THE MMX, MIP AND GMF SYSTEM PORT NAMES 
fom * 
= * USED IN THE MSP OPERATING SYSTEM. INCLUDE THIS FILE IN YOUR CODE 
— te , 
7 * TO MAKE IT INDEPENDENT OF CHANGES IN PORT NAMES OR DEVICES, 
= * , : ; 
—4 FOR KK KK KK IK KI KKK IK KK KF KKK KK KK KIT KKK KKK KK IKK KR KKK KK KR KKK IKK RIK KKK KKK 
= /x SPU-0 IS DEVICE O IT CURRENTLY HAS 12 SYSTEM x / 
= /x PORTS USED AS SHOWN BELOW x / 
2 f> oS DECLARE 

= XTHSRETURNEPORT bETSRALLY “OOOH” se 7* XTH BIOS RECEIVE PORT 
= CXUSRETURNS PORT LITERALLY ‘’OO1H’, /* CXU RECEIVE PORT x / 
= CXUSRETURNSPORT2 LITERALLY ’OO02H’%, /* CXU RECEIVE PORT2 xf 
= TMC LITERALLY ’O03H’, /* TAPS MASTER CONTROLLER 
= CM LITERALLY ‘’OO4H’, /* TAPS CM 
= TAC LITERALLY ‘OO5H’, /* TAPS APPLICATION CONTROLLER 
= AM1 LITERALLY “OO6H’, /* APPLICATION MANAGER #1 
= AM2 | LITERALLY ‘’OO7H’, /* APPLICATION MANAGER #2 
= AMS LITERALLY ’008H’%, /* APPLICATION MANAGER #3 
= 101 | LITERALLY ‘’OO9H’, /* I/C MANAGER #1 
= I02 LITERALLY ‘’OOAH’, /x I/0 MANAGER #2 
= TS1 LITERALLY ‘’OO3H’, /* TAPS SPARE PORT #1 
= TS2 LITERALLY ‘OOCH’, /* TAPS SPARE PORT #2 
= /x CXU IS DEVICE 1 IT. CURRENTLY -HAS 2 SYSTEM xf 
= /* PORTS USED AS. SHOWN ao x/ 
= CXUSPORT1 LITERALLY °100H’%, /* CXU PORT x / 
= CXUSPORT2 LITERALLY °101H%, /* CXU PORT2 x/ 
= /* 544 IS DEVICE 2 IT HAS 1 SYSTEM PORT x / 
= XTHSiS44SPORTI LITERALLY ’200H’+ /* XTH BIOS XMIT PORT */ 
= /x XTHSiS443P0RT1 SHOULD BE SET TO 200H IF 544 30ARD*/ 

[x | 

RMX&&8 TASK TO TURN ON CXU YELLOW LED 
x/ 


DECLARE LOCATION LITERALLY “POINTER’; 


PROCEDUREC exchangeSaddress, timeSlimit ) LOCATION EXTERNAL, 


| & Kw KK kee tee i ke ek ke ke KK KKK KKK KKK KKK KKK KKH KKK KKKKK KKK KKK KK AK 


* 
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* 
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x 
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5 2 DECLARE exchangestaddress LOCATION; 
6 Z DECLARE timeS$limit WORD, 
? 2 END radwait- : 
8 1 raSsend: PROCEDUREC exchangesSaddress, messageSaddress ) EXTERNAL; 
9 2 DECLARE exchangeSaddress LOCATION, 
10 2 DECLARE messageSaddress LOCATION; 
11 2 END rqas3send, 


raSctsk: PROCEDUREC std3pointer ) EXTERNAL? 
DECLARE stdSpointer POINTER; 
END roaosectsk, 


— — —2 
+ Wr 
MmNnNM 


135 1 ragexch: PROCEDURE( exchangeSaddress ) EXTERNAL; 

16 2 DECLARE exchangeSaddress LOCATION? 

17 2 ENO rq3exchs 

18 1 cqactv: 

| PROCEDURE (functionsname, status3ptr) POINTER EXTERNAL, 

19. 2 DECLARE functionSname WORD, 

status3ptr POINTER, 

20 Z END cqactve 

21 1 | DECLARE taskSlinks LITERALLY 
“link$forward. LOCATION, 

linkSback LOCATION, 
, thread LOCATION’; 

22 1 DECLARE taskSlinksSa LITERALLY 
“LinkS forward LOCATION, 
linkiback LOCATION, 
thread — LOCATION, 

delay WORD’; 

as 1 DECLARE taskSdescriptor LITERALLY “STRUCTURE (¢ 
task¢links, 
delay WORD, 
unused WORD, 
exchangeS5Saddress LOCATION, 
sp . LOCATION, 
marker | ADDRESS, 
priority BYTE, 
status BYTEs 
nameSptr POINTERs— 
ilos$links LOCATION, 
task$Slink © LOCATION, 

: cs mask SYTE)%; 

24 1 DECLARE tasktcdesctoverlay LITERALLY “STRUCTURE (¢ 
taskSlinks, . 
messagesadedress LOCATION, 
exchangesaddress LOCATION, 
sp LOCATION, 
marker ADDRESS, 
oriority BYTE- 


status BYTE, 


34 


38 


—_ wd > —3 


—MMYONQEF 
namesptr POINTER, 
iosSlinks LOCATION, 
taskSlink ma: LOCATION, 
mask . BYTE) 7; 


DECLARE task3descriptorSlength LITERALLY °417; 


DECLARE running LITERALLY “000100003%, 


DECLARE ndpistask LITERALLY “000010008B’%,; 
DECLARE maskSint LITERALLY “000001008’; 
DECLARE suspended LITERALLY . *°000000108%,; 
DECLARE delayed LITERALLY “90000000187; 


DECLARE bottomsflag BITERALLY “OC(ernt + 
OECLARE unusedsflag LITERALLY "“Oetn” 7 


DECLARE staticStask$descriptor LITERALLY 
“STRUCTURE (¢ 


name (4) | BYTE, 

pc POINTER, 

sp LOCATION, 

stkien WORD, 

ds POINTER, 

priority BYTE, 
exchangesaddress LOCATION, 
taskSptr LOCATION, 
taskSndp- 3YTE)’; 


DECLARE ndptused LITERALLY ’173° 


DECLARE msa3hdr LITERALLY 


“link LOCATION, 
length WORD, 
type . . BYTE- 
homeSexchange LOCATION, 


responseSexchange LOCATION’; 

DECLARE msgsdescriptor LITERALLY ’STRUCTURE ¢ 
msashdr-, 
remainder(1) BYT=)’; 


DECLARE message MSGSDESCRIPTOR; 


DECLARE exchangeSdescriptor LITERALLY ‘STRUCTURE 


messageshead LOCATION, 
messageStail LOCATION, 
taskShead LOCATION, 
task$tail LOCATION, 


exchange$link LOCATION) °; 


DECLARE sleep EXCHANGESDESCRIPTOR EXTERNAL; 
DECLARE msgex =ZXCHANGESDESCRIPTOR EXTERNAL? 


DECLARE switches 8YTE EXTERNAL, 


MMXTST:s PROCEDURE PUBLIC, 
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44 


45 
46 


47 


in 
Aas 


a2 


rr ru Ps 


nm W Ut 


—_ 


declara 
declare 
declare 
daclare 


a 


ECLARE 


declare 
declare 
declare 


MMXONOFF 


(i, stetussbhbyte) byte, 
mnxSexsptr pointers. 
mmaxsmnsgdptr pointer, 
msgsptr pointer, 


muxémsg ZSASED mmx Emsafptr MSGSDESCRIPTOR, 
timesSout literally °’37%; 


TRUE literally ’17; 
FALSE literally ’0’; 


mmxdexSptr = caqaactv( CXUSPORT1, Astatus$byte); 


DO WHILE 1, 


/* 


wait forever for MMX nessage 


*/ 


mmxdgmsgsptr= rquwait(mmxsexsotr, 0); 


switches= mmximsg.remainder(0); . 


SYNC UP WITH LEDON TASK Cwait til it’s ready) 
msg$ptr= rqwaitCAMSGEX, 9); 


SEND MESSAGE TO LED TASK 


CALL rasend(SSLEEP-msgSptr)s 


end, 
end MMXTST, 


end; 
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COMOTLER 


AODR 


0000H 


OO00H 
COOCH 
OOOOH 


O00CH 
O010H 


QO00H 
O000H 
O00eH 
O004H 
O0005H 
O007H 
O009H 
OCOOH 
QOOOAH 
O000H 
OO00H 
0002H 
O004H 
O005H 
O007H 
OO009H 
OOOCH 
O000H 
QCQOQH 


OO000H 
O000H 
0002H 
Q004H 
O006H 
O0CO3H 


S126 
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MMXONQFS 
CROSO-RErER ENCE LEST ING 
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NAME, ATTRIBUTES, AND REFERENCES 


AAS. 2 2 2 
BOTTOMFLAG . .« 
CM « « 2 w@ «@ 8 
CQACTV . « «© «@ 
CXUPORT1 ws «© « 
CXUPORT2 2 « » 


CXURETURNPORT1 

CXURETURNPORT2 

DELAYED. « « « s 
EXCHANGEADDRESS. 
EXCHANGEADDRESS.« «© « 
EXCHANGEADORESS. « 
EXCHANGEDESCRIPTOR . 


FALSE .e. « 28 «© « 
FUNCTIONNAME 
Ls ] e a 


DO 2s a e s e 


LOCATION 


MASKINTs « 
MESSAGE. . 
LINK 
LENGTH 
TYPE . 
HOMEEXCHANG 
RESPONSEEXC 
REMAINDER, 
MESSAGEADDRESS 
MMXEXPTR 2 « + 
MMXMSG 6 a a 
NK. i. a deh eae 38 
LENGTH » 2 ee 
TVPE Nw ce oo x 
HOMEEXCHANGE . 
RESPONSEEXCHANG 
REMAINDER. « « 
MMXMSGPTRe a « « 
MMXONOFF «a « 


ss es» s Yits s« «2 82 a 


MMXTST « «© «» 
MSGDESCRIPTOR, 
MSGEX= « © 2» «© 8 «@ «@ 
MESSAGEHEAD. « 
MESSAGETAIL. . .« 
TASKHEAD «2 2 «6 
TASKTAIL «4 «© «© « 

. EXCHANGELINK « o 
MSGHDR 2 2 «© «© © «@ 8 


» a es @® « ine s 8 « 


‘LITERALLY ’Q06H’ 


LITERALLY *O07H” 

LITERALLY *O08H’ 

LITERALLY “Ocre7hi 

LITERALLY *°004H’ 
PROCEDURE POINTER EXTERNALC4) STACK=0000H ~ toa 
LITERALLY °100H’ a 

LITERALLY °101H’ 

LITERALLY *OO1H’ 

LITERALLY *O02H’ 

LITERALLY *000000018’ 


POINTER IN PROC CRQCXCH) PARAMETER 16 
PCINTER IN PRCC (RQSEND) PARAMETER 9 
POINTER IN PROC (RQWAIT) PARAMETER 5 


PAGE 


LITERALLY “STRUCTURE (messageSheadLOCATION-messagestailLOCATION,t 


“askSheadLOCATION-t task$tailLOCATION,exchangeSlinkLOCATION) ” 


39 40 
LITERALLY “°0% IN PROC CMMXTST) a 
WORD IN PROC (CQACTYV) PARAMETE R 19 


BYTE IN PROC CMMXTST) 


NELTERALLY “OO9H* 


LITERALLY “’OOAH’ | 

LITERALLY “POINTER’ 4 5 9 10 16 37 
40 Sa 

LITERALLY ’000001008’ 

STRUCTURE 

POINTER. 

WORD 

BYTE 

POINTER 

POINTER 

BYT= ARRAYC1) 

POINTER IN PROC CRQSEND) PARAMETER 10 

POINTER IN PRCC. CMMXTST) 51* DS 

STRUCTURE BASEDCMMXMSGPTR) IN PROC (CMMXTST) 

PCINTER 

WORD 

BYTE 

POINTER. 

POINTER. | 

BYTE ARRAY (1) 54 

POINTER IN PROC CMMXTST) 53% 54 

PROCEDURE STACK=COQOOH 

PROCEDURE PUBLIC STACK=0008H 

LITERALLY “STRUCTURE (Cmsg$Shdrzremainder(1) BYTE) ” S57 

STRUCTURE EXTERNAL (6) 55 

POINTER 

POINTER 

POINTER 

POINTER 

POINTER 

LITERALLY “linkLOCATION-lengthWORD-typeBYTE-homeSexchan 


47 


PLAME 2S 


OCATIQN -markerADDRESS, BASKBESGBYERLAtatuSBYTE *NHHSSBALRDINSERUIGSTYREIKAKRSERGALORNS -hasbSgZahRUOEASSONEAT 
PEON ee Cee BOR e ESS pridhSkPE STR zs TSkusdYT s/nameGHtEROLUYERSTEUSTORESLAGARSONnRe sks] SnWOBDAGHONaMaOR OFT Ee hangesaddressLOCATION,spLOca 


25 
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22 


~~ 


2 
8 
2 
9 
2 
2 
z 
ec 
2 


COMPILER 
CROSS“REFERENCE LISTING 
OOOEH 2. MSGPTR « « « w# « 
NOPTASKS: “xs. aoa: 

/ NOPUSED. «e's «© « 
O00Q0H RCTS ice vee Sieh <8 
OGO00H ROCK CH spe. oe. te oe 
OOOOH RQSEND « «© «© « 2 
OOOOH ROWNIT 6 <c- bs wax 

RUNNIN Gig: es sis be 
COCGH 40: SIS BRy 6 ‘ 
OOOOH 2 MES SAGEHEAD. 
OCO2H 2 MESSASETAIL. 
O004H 2 TASKHEAD . . 
CO06H 2 TASKTAIL « « 
0008H 2 EXCHANGELINK 
' STATICTASKDESCRIPTOR 
0011H 1 STATUSBYTE . «. 
OOOOH 2° STATUSPTR. « » « 
COOOH 2 STOPOINTER . « « 

SUSPENDED. 2 « « 
OOOOCH 1 SWITCHES . «2 2 


OOOOH 


MMYONQEF 


TAGS s a a 


TASKBESCRIPTORLENGTH 


TASKLINKS« « 
TASKLINKSA . 


2 TIMELIMIT. . 
TIMEOUT. « « 
TMC eas ars 
TRUE a: Sw Ss 
Lo ae 
Pee Se eee 
UNUSEDFLAG 
XTHIS544P0RT1 


XTHRETURNPORT. 


MOOULE INFORMATION: 


CODE AREA SIZE 


= 0044H 
CONSTANT AREA SIZE = COOOH 
VARIABLE AREA SIZE = 0012H 
MAXIMUM STACK SIZE = QO08H 
200 LINES READ 
O PROGRAM WARNINGS 
O PROGRAM ERRORS 
OF PL/M=86 COMPILATION 


~geLOCATION-responseSexchangeLOCATION’ 
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a 47 
POINTER IN PROC (MMXTST) 55% 56 
LITERALLY *°000010008’ 
LITERALLY “1% 
“PROCEDURE EXTERNAL C2) STACK=Q000H 
PROCEDURE EXTERNAL(3) STACK=0000H 
PROCEDURE EXTERNAL(1) STACK=Q000H 56: 
PROCEDURE POINTER EXTERNAL(O) STACK=0000H | 53 35 
LITERALLY *°000100008’ 
STRUCTURE EXTERNAL(5) » 56 
POINTER 
POINTER 
POINTER 
POINTER 
POINTER 
LITERALLY “STRUCTURE (name C6)BYTEs-pcPOINTER,spLOCATIO 


“Ny,stklenWORD-,dsPOINTER-priorityBYTE-exchangesaddr 
~essLOCATION, taskSptrLOCATIONstaskSndp8yTé &)’ 


BYTE IN PROC (MMXTST) 7 51 

POINTER IN PROC (CQACTV) PARAMETER 19 
POINTER IN PROC CRQCTSK) PARAMETER 13 
LITERALLY %00C000108’ 

BYTE EXTERNAL(C7) 54* 

LITERALLY °005H’ 


LITERALLY 
LITERALLY 

-CATION’ 
LITERALLY 
“=CATION, 


"41° 


“linksSforwardLlOCATION, Link$backLOCATION, threadLoO 


7linkSforwardLOCATIONs LlinkSbackLOCATION, 
delayWORD’ 


threadLoO 


WORD IN PROC CRQWAIT) PARAMETER ea 6 


LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


iss: Pan 


sr tas 
°003H’ 


IN PROC CMMXTST) 


IN PROC (MMXTST) 2 
“00BH’ 
"Q0CH’ 
“Oc7h’ 
“200H’ 
“O00H’ 


SRBY¥BR2KangeSaddressLOCATIONsspL 


